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.•;:,.! ■- •** Pi -:>:\- .1 AR P I P 



EO-1. 14 3 17 Pi 
33 3 1 721 7 3? 
::>••< 3 1 3 01 / i? 



i'"\ /\ ***■ .'' P : *''^ . -- ; -"& ■ i- A i,.P ■..■''" J '.A * :-A -A ■■ A 



0<RA1 f F3P A)t 30 

OPAl \ <3<)i P < 33 
. CAT*'? BR J 



P . ) P 1 3 R K ■ i.'J A I. 1" 



* "C < i^i ; I fP ■) l ;P3 03 A PA 3 .) • • 

OO0 ' 3 P 3 ; S f 3 !) .) 3 1 ? 3 R A A R I I" . 

V -ADA? POT 33777-3. , • : 

E3 '! tc lil'iij; Z ) 1 1-1 -i )■*' .'J R ) i ~ '• ' 'i ' • * ' ..." ■■ 

■OiWl EQ1 2 62 63.? 3PP OPAl T ' ' ' . ' •. 

O E r ; 3 : < P 3 I C £ T P ; ' 3 A : i .3 ; G £ f P .? . 3 -. t i i . P « ) 3 

L 5.A 3 3 7 7 7 3.*' A = 1 3 P B-; , £ f R = 7 7 7 7 7 '78 .; 3 T A 00 ) P 

A. DA I P)T- DD3P? '-11 ■>! 00 3 I 
ID03 2 ^P3 ." . 



*READ DI SC ' 

DREAD £33;, LOB -2326263? BrM 00,3; 'A 1 P OPEPOl 3K.it • OPE- 



:U) 



*WRI IE DI SC ' 

DRITE PRO? LOB =2036633; 6t<A 003? ^1 1 "••! D^I f£? Pi<P DPI 



TE 



*GET 1H3!O003 P0P03 FP3 A 01 SC 

DGET ) - PRO I L DA =35 STA DGET'i ^ . 

; m E f P B R ■■] R tl t\ 1 3 • ■; -c G E i" 
A DGET3" S^(H DGETll 3RU DGETa. ' .' 

LOA - P 1 .? ' 3! ; M PP'ICT ' . - '. 

S:^ PROA.? AlA OGE'fl 8RR -OGZi' ' • 

DGET1. /; : ?0 - ■ ' .. /,■'■ 

*WAIT F3R FARE UnI IT 7 S . , • 

TPAIT7 2 30.? CAFP? PPiJ ?c-l 
r . SP3 104173.? '3PP 'TPAl F7l 3RU i<-2 ' ' ■• 

*WAIT E3R TAPE UMI T 3 ' 

TPAIT3 ZRO? CATPO '3RLJ •*-!■; S<S 1 0^ i 33? ; 3PFP. FPP I TPl BRi 



^£<ECUTE TAPE CO^^A^O 

TOO ER3.J STB T0J1 , P . 

•■" ,'■■ ' EO <1 ^ 1 3 •) 3 3 J : :•: ) •) 1 ■ 1 J -J ■'; •> 4 3 ) I = / ;: / ' 7 ; 



TOO 1 



3 J 



6 6.573" 



i J j ■ 



•'TRITE' -'A.)? 3 31 fAAI T/.; LOB -3333: 



a a at r 



r->A.t r/ ! 



CE-'i A: 



i ,i r.' 



*REAO 1 :>>:5d-.l 3' A3 33 3 A V) 4 i3A£ j 

• FA AA D ' - £ A 3 I A * 4 F 3 A 1 r 3 5 L 8 = A 3 ,3 6 1 3 3 

BAA 'TOO ? BrM FAAI F3 ; ' .' " P A 

BRA T£AR3.?' -1 1 xl FAiT)? M< F 3uAD .. . 

* C A L G i JL A . F £ >J L J '4 8 £ A F A 3 A L) 3 A .A I F F A \) 3 '-J . T A P £ 
TCT ■ ZRJl ASCWJ P" I ^ TCT1 '■...■■" 

" T LOATCTl; SUA.' =3377731 3 FA FCFH AAA TGI' 

TCT1 . ZrO 

*WRITE DISC 3L3CA ■■ O.M -TAPE ,7 . T 

TPUT 2R3 ' 

TPUT1 BA"3 TRI F£5 BRA .TPUt. . 

8A3 TCT.I 8A i h" ;F <: 3 -3) i A )T? .i : , F f h A 
8'R4 TCTr BR 4 EATAr LDA FCFU AA4 EATF, ■■ 
ADA --4 1 15 8R4 PA1CT 
8R4 PROA; BAA "FPUTT ' 

-*DLMP DX SC OM TAPE 7. : 

0SD31P* Z;R3? BR 3 PREFl LOA OFR..3 ' 
-DSD3P1 STA. 337778s 8A-1 OGE i> BRA TPUT * 
' - LOA 337778; ADD ~ 1338; S< G DTO ; BAB D30AP1 

. '8RvJ TEOF5 BAR D3D3P .. ' . 
■DFAO 2 A3 

OT3 >A0 / , 



.*LO.AD. 0! SC FRO 3 TAPE 3 
OSLO.' 2R0; BAA PRETLi BAA OSLO 
DSL 01- 3 R 4 . T G £ T ? 8 R 4 Oj 3 U T I 3 •< \l £ .3 F ? A A LJ D 5L 3 1 ; 



3L 



* Pit EPA 


A£. FA 


iP.E F)A ox 


: PR ETL 


2R.D.5 


LDA =4*1:3 




8 A3 


ADCCT.? 3A 




LOA 


-37777777 




CLA5 


STA CLOG 




DAT. 5 


. BAU *- 1.; 


PRE TLA 


•LDA 


= *1 1 3? S'-IA 


* 


8 A -4 


FA AIT 3? L 




SAS 


1721385. 3 




EG 3 


1 431 381 3 




SAS 


1201385 ■ 8 



SC L.3A0 

; BRA PA ACT 

E ~ 7 3 31 -JA < 3 •:£ FA 

B? STA EOF ' . 

A DA I POT CL3C; -1 L ^ .P.AEFa 

PR -iCT 
OA ^436? 3 <•] P ;4CF3 A M •: JilCF 
RU. *+25 AAiJ PAETL2 
R3 TWA I T3 



'*GET-DISC BL3CA FRO 4 TAPE 3 

FGE r" 2 RO J L DA = 55 STA TG£ 12 
■TGET3 BA3 FREAD5 SRrl TGEF 

SAS. T3 61 381 BAU TGEfl . 

; "' • SKR FGET2 5 BAU iA3EFA 



888ET1 
TGEiA^ 

TGET2 



LDA •= 4 1 4; o;M P;MCI 
38 3 PRCL-5, 88'1 . P8T3M 

.'-11 -I r.-«£ r • : . : > r" : r 

8 A -1 / 8 C A 3 8 3 I 8 it 8 ( u E T 



ij-^sj • r 



:'L i -■> 



*88£ TC £DF :M TAPS 7 A^JD :t£81 f 3D 
TEDF 8 3 38 lDA -838? W -i <; t iV ' • 8 

El -i * 13 5 J :< H ■: ) •') I -i J j.Jo! p l C i \ ) ■•' i 
£38 20578? 3r>-1 ru/Al 17? 88.3 A 13.31731 SEA- 
TED Fl . 38p* *1 73808.3 ):i '. 
E.3E . . DATA 377777778 ' ' ' 



lAA)-" 



.*TYPE -DEE 3 ' ADDRESS 



PRQf 



83 i LLM ii77''.l L..JI - U 1 v i J ' 'G : A . - ; 



PP. C L ' £ ; O 5 L A C L .3 G 5 L D 8 ~ 8 J 3 8. '1 P 8 *J C T ? ■ 8 : 



, 7 



3 r ,.) a 



i- 3 'jr j[ a;: )O0"c ) •• ■>■: -■: 

DP-UI 18D.8-L.Da =3; 3TA Or^ fT3 - 

L DA Gu. J C i S < £ 8 3 7 7 7 3 f iSd'J D P U "F 1 ' 

opjra i3 r -i DPirei pp;j dpd*T4 

• 38 8 DP: .118.1 8 831 0PUT3' 
■ L D A = ;i I 8 ; 33 8 3 ' P 8 ■■■) Q f | ^ a ? < 7 , P 3 D A ' 
'b? 8 T A 3" A ~ 1 8 i 3 5 3 D 4 Gd ) G ? diP:) P -. I f 
DPUTl. LDA' -3171 3'83 PPAGiA -388 ^P-PA.I i. 
LDA 3 37778; 3TA GL 3Cl ^AJ DPJfA 
DP J 88 >83?Cl.3C "83 



PUTD^ 



,*C8£C-< i' \P8 :'. OP ;E \ .» *3.8 38 
TERP3 Zri3.$ • GET 8? ■ 388 TEa.a3 8 ' ' 

C : i 1 - ? ;■ * •. T •: ^ - f^ » I : M i i^ • . : i' : 

•1 r ••) 88 ; ': ^ ' • "8"; T8 . : ■ 

*scA>i . taps: 

SCA8 8.8;) j. S.Tirj 33CA8 1 

l 3 -1 k 1 i -'i 8 i " ; > ? i: : 3 >i 1 .j ) .? r ,5 : J ) r ■= ■' i :- -i » ^ .. 
SGA81 ED8 76333; 388 8CA;^ 

*8AC8 SPACE PECD8D .3 '3 TAPE 3 

SC A 3 i"< 3 8 R ) % L : .) 3 — 2 D 7 8 3 3 8 ..? 3 \< \ 3 C A a] I 3 r< .r ; i 3 G A 3 K. ■; 



8C1 '• e;3 : J -'3- 

CTI ; . DATA A 1 8, 8, 
EG Ft Ei:J * 

381 ' s DA FA '.\),L 9 $ 
:.EBR! . .£QU * 
'MC2 "• 'EDiT 3 : 



era 


DATA 2 38, 2 43, 51 5 


EC i" 2 ' 


EQU *' 


BR A 


'DATA OCA, DDT., DAT 


E-'iRR 


POD * . 


3P3 


DATA LCATO LO F* L x f 


35 < -} 


TDD * ' '■" - 


SSETSA 


LP) A V42 5? ^ :-i -1 P 



GL1 



J i J <. AA. = ;' ? A IA :A: 
A : i i ) >; f ; .*, \ . > \ i > \i i . i i .«- A 
3P4 FiDC'CT? 5<P ~3,A:>,? AAA ?'«-x . • a 

6 R A 5 A F l l. D A = - T ; . .3 I A- 3 < C i ■ I 

< ■ ■ 

lDA .= A A G 3 1 3 1" A P A A3! A F A A A A A I 5 f A ( 
'3-<M/ D <CTAr c3 f : ?:J ' 53 2 ' 
ADA '= 3 <3r<; 5 FA DA PI" A • 
ADA ^521 ''.'" ^ : A 

BAA PRACTl . 334 ^RDCCIO L-DX =-MCl. 
5<P -Jij;i, 2* J AT *+.i; j< iic : ; , «i , ::; ; : 
'RAG ADA -TlA'l BRA PRACu ud)A AAPGr ;>i"s t 

D- •■• l L.OA = 319? • 3P5..P.KTCF0 BRA KDGC'iOf ADA 
S<£ PCTP, 2l AAA fc+23 AAJ^ E3P2.* 2;-. A: 
' ' 3 A J FA AS- \ 

L ■ ' ' L D A - 4 2 A * 3 A A .? A -1 G TA A it 1 A 3 C 13 .■ ' l ?0 a 

, ' 5<P EGTP, 25 PrAJ *+2-S 8^J* EP3P3,*Pi 8. 

. 3.:A.J FAAG ' ' •■ ' ' 



:..DA . - 
i3PT2 

.1 ..v „/i 



3 F .TAP.- r P RR RR APT I 



1 1/25/63- 



DC A PD'J ■• i AAA 

'DPI'- PDA APT A '..-'■ ' 

RRRR .PFaT FAAG •. ' ' 

RDi A A )-i ~ «P 3 J . . i ' , , i » > A, ,) AA ■ 

A A ~ .-1 2 7 1 3 P -1 P : ; < : 1 C f I R R A : < D 3 C r I -3 x '"1 

LDA -425.1 BRA PPPCTl BRA" DA FO GO ; 

3P-1 PAxGl CL3>- L S3 3 31 .3FA DPP3 

■■BRA FAAGr GL3? ADD = 1 > a 53 -131 333 

SrM D3D4P? 3P3 CL3 

L D T A D A ; - T 2 3 ; 5 1 5 -1 P ^ '-1 C i" ; . 5 r : < 4 3 ■■< F .3 GO.; B ri 



:::> i A-/ 
3JA r 



- I A 5.F: 



OSLD.?. 



D F 3 

AAA 



3E 333 A i 


i:R) 




A") •< .5' F 


BAB 5 




3<cr.;-( 


DATA - 1 ' • 




3<P fP 


R'A LR 3 <3F;( 




0-< 3 TK 


A 5 5 3 




APGS 


.3 35 I A .- 




PAPA ' 


DA- FA Ai33o 




PAPA- 


DA FA A AG 3' v 




\j'"i V\ 'C- 


D i !' ; & .t . 




F ~\ 3p 


^<3^ LOA-is GA:a:a 


■1 1 



''i iX j 



> ., \ "' ! , • 



STAkG ;'' £%.)? X3A PAPGl' 3<E = P^.^G; -3 -^ \J ^-i-Pj 3 3.J" FPAG' 
, XI A .P A P G I 3 F A < P A P G ; 3 13 P A •• < G ?. 3 A P 3 F A P G 

• 3 < P* 3 cl < ) J A I 3 3X C F 3 t l ) \ ^ \ < .,-• 5 > f -• , ; \ , G '; . ■ »" '■ ) ( F 1 7 ) 
■"■;■.. STA* 3APFrG3 -1 E. 3 JX'P FP.; .3 A3- JPPS [ ■ 



3 X I ..373 3 X A 3 J d j i A P C C T ; ' 3 •< £ ~ 7 J 3 ; 3 ; < > J .3 •-< I 

) . ) j c - >-3 •„ ) i )';>:,> > : * - « • . f~ i . . » : . . > sp. 

' 3 X 1 . .3 < P = 3 3 3 S 3 ; < v J F •< A £ ? . * . j A -1 ..) •{ p 3 -I • , 

-X 3 ■ 3 DA ' = 3 X 3 f ( ; • 3 FA 3 < 3 iPP ' - y 

G<3' ; LDA* .) PP Tk ; S7'\d<i')-G3. 

-[ ! ) r % F : 4 , , . » ' ; f ,; : » j » . , » ' •/ : ...■■■■ 



r ■ J.<3 






F3XF VpPEADF ' FX3P .3P 33{ i" 73 ; PI- 3 3 i 33 P33P3PLP V 

-iP:P( r ' p)L 33 : : • .) 3 ■, .. ) ; a' . 

• ; iP£K r • gf^pg, 'PPi rp epp3 3: ■/ • ' • . . 

r.p ; i • ■; ) ) n j p ■>. ., f j p pf n uo 33 ■ im p a i :pp . / ..» 

rPPT ■ M,)J:JT. Aij A3 TA - j : H Pii ., >' - : /■ ' ■ 

G V PX F ' ofArPP PI^'.) P.^P3 : < / • • ■ 
I PPT' • TAPE 3A/3-/-' ■ '■.. . 

i'ppr '31)130 PP^'i) £:<;<)R-s< 

lAipcr ' rssp-pjp^cp G'lPCP. / : f 

FPP F '•' SFPPF A3AI 7/ '■ . . '"; ' '' ; 

TEX F - f 3PP / ' -• " ■ . . ■- . • 

FPP f ? J A3 / f A ' ' 

1AP3 F. r 3>/ ' . "- . . ' 

i£* F.; » I 33 "/ • ' 

FPA F * I AG PP3 -1 r APiC^'' 

T.2XT f FAP F SFSTP'P/ • "\ . 

xZXT ' SSSSS39 A3 :y( ::>i£A . 3 fA.PiP. JPG 3 3 Pi-P- 

r£.-<"r • STARS- s]-313T£r<: /.'■•■ 

tex r * r j / » . 

FPA f n\> a^aph:/ f - 



i 



;■; 3:3 

'PIG 

■1 1 1 - 
v - PIP. 

' -1 1 3 

. PIP 

73 1 3 

113 ■ 
= 31 7 

31 3 

31-9 

■ A2 3 
331 . 

. TAP 

•13 3 .. 
. ' AAA : 

i 2 5 
• .4 3 6 

42 7 
■'333 • 

LI F33G 333 3433 ' . 

API A3" Ld3 < * 

■* ' PPAi) P AGP ' 3 3 3 3 3 33 fr* 3-1 iME PAD • ■ 

' " 01 S \n L.D 3 i7A DP 3 K A 3 3j, j J • [ >| • -i i F ■ , -1 - I 
: ; UDB =3-iJjJ3? ).3< -3J.3? ji.'j ',-nO; •'. : ) 

^/ I nIX Ft v.l M i IP gjm is-: : i •' ! , ■; ■> ).; , ; ^ , : ; . \ . . 

* v ^v7)j jfA^i'j • P) : "'i i i j-: , o^ \ >\t. + ". n" -.: p. 

' LOG -N A ADA. 5 3 FA J.JA \ ■. 

■ *' , - • AElAAElG , f33K G.3P3 pj p FAP 33GI 3 3 1 •ntP 3 P 33AP .' - 

£3 3 •2!3333f 33 F '.= ! 4 I 5 I 51 7 a " 

'^ Gb£A-> AlL G3-ij-\) T ZnS 

L OX = - l. -3 3 3 % GL A ;. 3 F A 1 3 3 P :< 3 , 3 % 3 ■ v < * - A , ' ^ 

■ ■■ i p ;i ; > •: ■; •: m* . ■-,-/ ^, p « . .• p i .- , ■ . 

L A. .EP113;F3.i; • A:<3 P.MC.F' , 

:P --J-\ i 3 r -i? l-)5 = ; i -, ] - ■ -)C r 3 

L DA E 3 3 P f 3 f 3 R -1 P 3 3 G f 
•LDA 3- DA. I riSH 13? LU3-=13.l ^,-M.P^NlG'r 
i3iAR GAAP '"','■ 



i. IM 11-13 



FG3E3 



■ Eil TEXT ' SSTPE HIGHEST ■ DT3C A0QPE3G IS- / f 
E'liPFP DA FA E'll ' 

egg' text 'si r is a >j disc *./ v 

EGPPTP DATA El 2 ' ' ' 

* THE CDDE. FPDH HEPE f,) "-EMI" >SEf MM M)'^;E HO MM C M M H F3 
PADP2 DATA 27G.G00B BA'M 11 (DEC! -IAD PAGE 2 - 

BlE.SIE EGU 403B THE'MME JF-A GM)CE ;M ME .)i. vj' . ' . ' 

■' ; # / - ... • 

* '„ .THE FILE OiPGCF3PM X M£,< 3L3CG AM) DATA 3M3i>< GUEEGM3 , ■ 
'■•.*.- ■'■... APEMEPT IM USEE G3PE . - - 

"i-M'JF M I A M J 3? i M IE •: J I E Ju'Ir* f ^l\ 'H '/: ^ ' • Sl M 1 f ' M« m M ' 
*. \ THIEP A6S3LUTE A D PM5 ;> E 3 M33T 3£ ' GEE1 >i £0 ED R THE IM PJGFMM;:E . 

\ M > j v ^ ,q i j ) >) R . ) , I r ? n f I > \i \ , i j i * »- < M > M M Ml". M H , ^ M M « 

El-K< E-jj i.mj'IFMDM mm j^ mmm H'.mg< e - ■ ,-.'■■■'■'■ 

E\EL 3MJ MM3B f, TABL M M FM -K I' MP ^' r F IE J J *E v G £ MM. . 

iJDPF EG J J«i.Urir >E ) J 'i')-] if m j , : > MG i Mmp :)^i'^^ \ .JUOi' .' , .■-.'.., 

■*,. ; .JP-THE, DI.'SC 8LDCM3 ASSIGNED TiE G 3PPESP3 M)I \) G UGEP 

.*.' " ' ^ • •. ■■"■'■ ' - . . 

.*- \ THE' STACKS APE E3 P FHE 3..3PF AT.i«. 18 f aM)SE. BL3GS IA3LE)' 

■ *' ISPEPF.MJ USEE- COME* ITS MMI MM SI M -I S 20G33B . ' 

BS T A CK ' E Q U 4 8 3 ; A 3 T A G < E G U I 4 3 3 3 S I I »3 T - E G 3 P 3 3 3) 3 8 , 3 I 8 f S'l 2" £ G J 2 G 3 G G 

* > - < " 

*■ EvllTLE^ IS THE LE3GHF ..) E A EG EMGtM ?~i^ } T f£P SMM)l5 . : 

* "• • ' IE 1 THE HEM' FHPEE l.InJ£S IDENTIFY CELLS I M THE EO 
£<J FUM EM /GMMOM CM aM > ' .- 

M - F G EJi i«OJ!i'>r^H? cGiJ 1 Gl ./ , ' (^«- . .' • ;; 1 -; ••' ./ .. ' f -M M»'j- w 1 / 
•T< J'3G E J I MM IEh <j7E"M ^ ; j h «; ; I .• ) I/ hi.-.- -. •, 



G>IrT13< DAf 



3 7 7 ?' ; i " 



H:<£ GaEG n G3.);I TPJ! 



i:.^JFLC 
GPFlG 



E *•] 

-"A F : A 



I E3L-.J vii "EG EuAG'G A^/E GaEG f 3 . G ..) ;!T' ;: : ) L ■ ii£- P:iGi 
] ES i \ ! F i E' 1 M F ' , . ■ • ■ 

3 G ■■:?; :■> E > EL. •-;; DA i^^ : -\ P G .-3 6 .? 1 G ;•$ F FL DA T A 1 ,3 3 6 E.I G 3) EL G G -•¥ F 



} ;.,'- 



GG'G 



3"DEE aL.)C< -E-3 TPTE3 .. 



■■.'.'*• ■ Fj l DATA m^IISSI \!G BI fi /E.K.3 BIFSIG. 

* ■ " ' GAvJO-I'slOEX G.L3CG E^D;ELAG ' 

; FOQvjBT DATA 'A86> I EPS FG DA FA 67GGGGG3GH BEFt G DA-TA 13B6 

' *, " • 

* ' ^Z.fiL.'if.lC'k A 0. MESS. -F PEE SPACE G,G T {£ UPPER: 01 SC IS 

* S.M6HT UPWAPDS JF KEFAOO* 



nEFADD DATA TOP+4 



.* COUNTERS AND TEMP'. STORAGE 

STAZRO EQU * 

ERRC'TR RPT 13; ZRO; ENDR;ERRTOT ZRO 

UNO ZRO 

NZERFD ZRO;NUSDFD ZRO;NTPFLS ZRQ;NFILES ZRO;NRESFLS' ZRO;NZERADS ZRO 

IBA ZROjDBA ZROJCDA ZROlNIBA ZRO 

HDA ZRO 11/25/68 HIGHEST DISC ADDRESS 

IBTX ZRO;FDX ZRO; IBX ZRO ; JTX ZRO;ASTX ZRO 

IBPTR ZRO * , 

TA ZROlTB ZRO;TX ZR0;TB4 ZRO;TTB ZRO 

FLFL ZRO^WIBFLG ZRO ' ' 

ASP ZROiBSP ZRO; ALP ZROlBLP ZRO 

MB ZRO;UNMB ZRO;MVIB ZRO;MVDB ZRO 

TUDB ZROJFIBT ZRO • ' 

ENDZRO EQU *;LZRO EQU ENDZRO-STAZRO 

* ' '. ~ ■ ; . 

*■'.■■'■■'■■■'. ' '"'.'■■■■■ 

* EN1 READS THE USER FILE DRIECTORIES AND BUILDS A TABLE OF , 

* USER NUMBERS AND INDEX BLOCK ADDRESSES. 

* ■'■■'' ■■ 

* RELABEL THE FILE DIRECTORY BUFFER CFDBUF) INTO USER CORE 
EN1 ZRO; LDA =401 14040B; BRMRELA 

SI MIN UNO;, BRM RFD; BRU FDRFll LDA FDWC, Ai SKE = 0; BRU INUSE 
MIN NZERFDJ BRU EP1 

* THE FILE DIRECTORYCFD) FOR THE USER NUMBER IS IN USE. 

* IS IT WELL FORMED? 

INUSE MIN. NUSDFDl SKG =MAXCNT; SKG =-15 BRU FDNG 
RSH 23; DI'V = ENTLEN; XAB; SKE = 0; BRU FDNG! XAB; ADM NFILES ' 

* YES. STORE THE USER NUMBER IN THE INDEX BLOCK TABLE CIBT) 
LDX IBTX* LDA UNO; MRG UNOFLGl . STA IBT#6'| MIN IBTX 

LD A- = -ENTLEN; STA TA 

* NOW STORE AN INDEX BLOCK ADDRESS IN THE IBT 

FDOK LDA TA; ADD =ENTLEN; STA TA - 

SKE FDWC, 4; BRU *+2; BRU RESF9 " - 

CAX; SKN FDBUF+2,6; BRU TAPFIL , 

LDA FDBUF+1>6; ETR DSCMSK; SKG =01 MIN NZERADS 

EP15 LDX IBTX; STA IBT>6; MIN IBTX 
CXAJ SKG =IBTSIZ-3; BRU FDOK; BRU OVERFL IBT OVERFLOW 

* IS THERESA RESTART FILE IN THE DIRECTORY? 
RESFQ LDA RESFA, Ai ETR DSCMSK; SKG = 0; BRU EP 1 NO 

* YES.. FLAG ITS ADDRESS AND STORE IT IN THE IBT 
MIN NRESFLS; MRG RESFLG; LDX IBTX* STA IBT,£; MIN IBTX 

EP1 LDA UNO; SKE =MXUSRS; BRU SI GET NEXT FD 

* -1 FLAGS THE END OF THE IBT 

LDA = -l; LDX IBTX; STA IBT, 6; BRR EN 1 

* ' ' ■ - - '-■■■''■■ 
TAPFIL MIN NTPFLS; CLA; BRU EP15 TAPE FILE. THERE SHOULDN'T BE ANY 

* FILE DIRECTORY READ FAIL 
FDRF1 CLX; BRM GENERR; BRU EP1 

* FILE DIRECTORY NO GOOD 
FDNG LDX =1; BRU *-3 



* POINTERS TO THE INDEX BLOCK" ADDRESSES IN. IBT ARE CREATED 

* IN ASTACK. A RADIX SORT SHUNTS THEM BACK AND FORTH 

* BETWEEN ASTACK AND BSTACK. BIT 21. IS SORTED LAST BECAUSE THE 

* SORTED TABLE IS USED TO MINIMZE DISC ROTAION' TIME WHEN THE INDEX 

* . , BLOCK'S ARE READ. CIT IS QUICKER TO READ ADDRESSES 0, 10* 20 

* ... THEN 4, 14, 24..., THAN 0, 4> 1 0, 1 4. . . ) . ASTACK IS , . 

* RELABELED INTO PAGE 1, BSTACK INTO PAGE 3. 

* THE FOREGOING DESCRIBES THE CODE BETWEEN HERE AND EN3. 

* , ! ...''■" 
EM 2 ZROl LDA =40104020Bl BRM RELA 

52 CLXl LDA =15 SKG IBT, 6! BRM ASTO J. BRX *+ 1 1 CXAl SKE IBTX; BRU S2+ 1 
LDX '=-'11 BRM ASTO; LDB = 10B; STB TB 

ZP CLA; STA ASPl STA BSPl STA ALPl STA BLP 

LDA -40104020B! BRM RELA 
ZL SKN FLFLl BRM 'ALO'AOl BRM BLOAD! CXAl SKE = ^-l! BRU *+2l BRU OP ■ - . 

LDB TBI SKB IBT,6l BRU ZLl SKN FLFLl BRM BSTOi-BRM ASTO! BRU ZL 
OP CLA; STA ALPl STA BLP; LDA R 1 5 SKN FLFL; BRU *+4 

ETR =7700777781 ADD N10B4! BRU *+3; ETR =77777700B; ADD = 20B; BRM RELA 
OL SKN FLFL; BRM ALOAD; BRM BLQADl CXAl SKE = -l! BRU *+2l BRU CYEND 

LDB TB; SKB IBT, 6l. BRU * + 2~! BRU OLl SKN FLFL! BRM BSTO I BRM ASTO; BRU OL 
CYEND LDX = -1; SKN ' FLFLl BRM BSTO; BRM ASTO; LDB TB; SKB =4; BRR EN2 

SKB =400000Bl LDB =2; CLAl LCY 1; STB TB 

CLA; SKN FLFL; SKR FLFLl STA FLFLl BRU ZP \ 

■ * ' ■ ' ■ . , 

ASTO ZRO; CXAl LDX ASPl STA ASTACK, 61 MIN ASPl XXAl SKE =3777BI BRR ASTO 

LDA Rll ADD =11 BRM RELA; CLAl STA ASPl BRR ASTO 
BSTO ZROl MIN BSTO; CXAl LDX BSPl STA BSTACK, 6! MIN BSPl XXAl SKE =37778 

BRR BSTO! LDA Rll ADD =1000081. BRM RELAl CLA; STA BSP; BRR BSTO 
ALOAD ZRO; MIN ALflADl LDX ALPl LDA ASTAGK,6l MIN ALP; XXAl SKE =37778 

BRR ALOAD; LDA Ri; ADD =11, BRM RELA; CLA; STA ALP; BRR ALOAD 
BLOAD ZRO; LDX BLP; LDA BSTACK,6l MIN BLP? XXA; SKE =3777B; BRR BLOAD 

LDA Ri; ADD =100008; BRM RELA; CLA; STA BLP; BRR BLOAD ' 

* ■ ■ - ■ : . "■ 
*.' ■ ' 

EN3 ZRO ' ■■' , ' 

* RELABEL ASTACK AND 1-0 BUFFERS INTO USER CORE. CREATE TABL, A 

* BIT MAP WITH A ONE-BIT FOR EVERY BLOCK ON THE UPPER DISC- 

* CLEAR UDBT (USER DISC BLOCK TABLE), .WHICH- IS TO CONTAIN COUNTERS 

* OF THE BLOCKS ASSIGNED EACH USER. 

53 LDA =1011122081 BRM RELA 

LDB ~-ll LDX =-NFWDSl STB TABL+NFWDS, 61 BRX *-ll STB ASTX 

LSH SHIFTERl STB TABL+LTAB- 1 , 4 

CLAl LDX =-MXUSRSl STA UDBT+ MXUSRS, 6! BRX *- 1 

* READ AN IB AND MAP IT AND ITS DATA BLOCKS. 

* . IF. WIBFLG IS INCREMENTED, THE IB WILL BE WRITTEN, 

LOOPS LDA =-ll.STA WIBFLG! LDX ASTX! BRX *+ 1 1 CXA; SKE =4000B; BRU *+5 

* RELABEL IN ANOTHER PAGE OF ASTACK. -1 FLAGS END OF ASTACK. 
MIN Rll LDA Rll BRM RELA; CLX; STX ASTX; SKN ASTACK, 6; BRU *+2l BRR EN3 

* IBTX IS FOR INDEX BLOCK TABLE INDEX. IBA FOR INDEX BLOCK 

* ADDRESS. CDA FOR CURRENT DISC ADDRESS. 

L DX ASTACK, 61 STX IBTX! LDA IBT, 6! ETR DSCMSKl STA IBAl STA CDA 

* SEARCH BACKWARD FOR THE USER NUMBER. 

CXAl SUB =1! CAX! SKN IBT, 6l BRU *-3l LDA IBT, 6! ETR UNOMSKl STA UNO 



BRM RIBJ BRU IBRF3J BRM IBVERJ BRU IBNGj BRM TOPQl BRM MAPI BRU IBMPF 
TOPQR BRM DBSMAPJ SKN WIBFLGJ BRU *+2j BRU L00P3 

* IF A DB HAS BEEN EXCISED, WRITE THE IB AND FLAG ITS ENTRY 

* IN THE IBT. 

BRM WIBj BRU IBWF3I LDB DMFLGJ BRM FLGIBT* BRU LOOP3 

* ' - • . ■'■ . ' 

* IS THIS' IB WELL-FORMED? 
IBVER ZROj* LDX = -NDXW* LDB . ZERBTS 

BOCHK SKB EIBLK,6j BRR IBVERJ BRX BOCHKJ'LDX =-NDXW 

Z.ERCEL LDA EIBLK,6J SKG>=0J BRU IBENDj' BRX ZERCELJ BRR IBVER 

IBEND LDA = -U SKA EIBLK,6J BRR • IBVER* BRX *-2J MIN IBVERJ BRR IBVER OK 

* '" ' ■•■■•■■ 

* IB READ FAIL. PRINT MESSAGE, RESERVE BLOCK ON DISC, AND FLAG 

* IBT ENTRY. ^ 

IBRF.3 LDX = 4J BRM GENERRj LDA IBAj SKG = TOPJ BRU *+3J BRM DTEBi NOP 
LDB IBRFFLj BRM FLGIBT* BRU LOOP3 

* IB NOT WELL-FORMED. PREPARE TO DELETE IT BY FLAGGING ITS 

* ENTRY IN THE IBT. 

IBNG LDX =5* BRM GENERRj LDB IBDFLGJ BRU *- 5 

* COULDN'T MAP INDEX BLOCK. PREPARE TO DELETE IT.' 
IBMPF LDX = 6J BRU IBNG+1 

*■-. WRITE FAIL. FREE CLE. UNMAP). THE SPACE OCCUPIED BY THE DATA 

* BLOCKS AND PREPARE TO DELETE THE INDEX BLOCKS, 
IBWF3 BRM DBFREEJ LDX = 7J BRU IBNG+1 

* : ■ ■ -. ' ,.'..' 

* CYCLE THROUGH THE TABLE OF INDEX BLOCKS. MOVE OR ■ DELETE 

* , FILES WHERE THE APPROPRIATE FLAGS HAVE BEEN SET. 

EN4 ZRO* LDA =101112408* BRM RELA RELABEL IBT INTO USER CORE 
S4 CLA* STA IBTX 

* USER LOOP. -1 FLAGS END OF TABLE. 

UL LDX IBTX* STX FIBT* LDA IBT, 6* SKE =-1* BRU * + 2* BRR EN4 
ETR UNOMSK* STA UNO* BRM RFD* BRU FDRF4* LDA =-ENTLEN* STA FDX 

* INDEX BLOCK LOOP 

IBL MIN IBTX* LDX IBTX* LDA =ENTLEN* ADM FDX 
SKN IBT, 6K BRU *+2* BRU NUSER NEW USER COR END OF TABLE). 

* USE FLAGS OF IBT ENTRY TO PREPARE A JUMP TABLE INDEX 
EPDEL LDB IBT, 6* LSH 1* STB TB4* LSH 1* CLA* LSH 4* STA JTX 

LDA IBT, 6* ETR DSCMSK* STA IBA* STA CDA . 
GEP LDX JTX* BRU *+l,2* BRU IBL 
BRU DA TM IS* BRU MOV* BRU MOV* BRU DEL* BRU DEL* BRU DEL 

* WE MIGHT WRITE CODE TO RETRY AN INDEX BLOCK READ FAIL. PUT 

* WE HAVEN'T, AND THE ROUTINE CALLED "RETRY" JUST DELETES 

* THE BAD BLOCK 
RPT 8* BRU RETRY* ENDR 

* NEW USER. UPDATE FILE DIRECTORY AND WRITE IT. 

NUSER CLA* XMA TUDB* LDX UNO* ADD UDBT-1,6* STA UDBT-1,6* STA FDUDB, 4 
SKG MXUDB, 4* BRU *+2* STA MXUDB, 4* CNA* ADM UDBA 
b rM WFD* BRU FDWF* BRU UL ■ 

* - • ' 

*■' DATA MISSING. SET FLAG IN FILE DIRECTORY 
DATMIS BRM DM* LDA KDM* BRU EP4 

* IF TB4 IS NEGATIVE, THIS IS A RESTART FILE. THEN DELETE IT. 
DM' ZROJ SKN TB4J BRU *+3* LDA JTXDELJ BRU EP4+ 1 



LDX FDXl LDA FDBUF+2,6! MRG FDDMBTl STA FDBUF+2, 6! BRR DM 

* 

MOV BRM RIBl BRU IBRF4! CLXl STX IBX 

LD A IBAI SKG = TOPl BRM FDA! STA NIBA 
MOVDBS STA REFADDl LDX IBXl MUM IBX! LDA IBBUF* 6! ETR DSCMSK! STA DBA 

SKG = 0! BRU IBQl SKp =TOPl BRM DBAC! BRU MOVDBS ' ' , ' 

IBQ LDA IBBUF-1,6! MRG IBEFLGl STA IBBUF-1,61 LDA NlBAl SKE IBAl BRM IBAC 

BRM WIBl BRU IBWF41 LDA KMOV 
EP4 ETR JTXl STA JTXl BRU GEP ' 

DBAC ZROl STA CDAl BRM RDBl BRU' DBRF! BRM FDA* STA CDAl BRM WDBl BRU DBWF 

.MIN TUDBl MIN MVDB 

LDX IBXl LDA REFADDl STA IBBUF-1,6! BRR DBAC 
IBAC ZROl STA IBA 

MIN TUDBl MIN MVIB 

SKN TB4! BRU * + 4! LDA IBAl STA RESFA.,4! BRR IBAC i V ' 

LDX FDXl LDA FDBUF+1,6! ETR NDSMSKl ADD IBAl STA FDBUF+1,6! BRR IBAC 

DEL CLBl SKN TB41 BRU *+4! STB RESF,4! STB RESFA, 4! BRU IBL 

LDA IBTX! SUB FIBTl MUL = ENTLEN| LSH .23! SKE FDWC, 4! LDB =-ll STB FLFL 

LDB = ENTLEN-ll' STB TTB 
DELOOP SKR FDWC4! NOP! CLAl LDX FDWC#4l XMA FDBUF, 6! CAB 

LDA FDX> ADD TTBl SKN FLFL! BRU *+3! CAXl STB FDBUF* 6J SKR TTB 

BRU DELOOP 
DELEX SKN FLFL! BRU IBL FLFL IS POS. IF THIS FILE IS THE LAST IN THIS FD 
. L DA FDWC, 4! RSH 23! DIV = ENTLEN| ADD FIBTl COPY AX,Al XMA IBT+1,6 

LDX IBTX! STA IBT, 61 BRU EPDEL . . ■ ■ / 

* . ' .■.'■■■ 

RETRY BRU DM+3 . ■ 

'* ' ■■■[", ' ■ 

FDRF4 LDX IBTX! BRX *+ 1 1 SKN IBT*6l BRU *-2! STX IBTX 

CLAJ LDX UNO! XMA UDBT-1,61 ADM UDBA 
- LDX =2! BRM GENERRl BRU UL <, 

pDWF LDX =31 BRU *-3 

IBRF4.LDX =8! BRM GENERRl LDA IBAl BRM DTEBl NOP! BRU DM+3. 
IBWF4 LDX =9! BRM GENERRl BRM' -DBFREEl BRU DM+3 
DBRF LDA IBX! ADD = IBBUF-ll STA IBPTRj BRM DBDELl BRU *+6. 

LDA NTBA! STA CDAl SKG IBAl BRM UNMAPl BRU DM+3 DELETE IB 

BRM DMi SKR IBXl BRU MQVDBS+l! ZRO 
DBWF LDA =-11 ADM TUDBl BRU DBRF 

#-■■',. ■ ■ ■ ' 

*■'■■-'' ' ; 

RELA ZROl STA Rl! EOM 20400B! POT Rl! BRR RELAjRl ZRO 

BSS.100 TO PROTECT LOCATION 33777 

#■ ■ ■ ' ■■'•■' 

RFD ZROl BRM GFDl LDA ABFDl LDX =BLKSIZ/ BRM, DT.C! BRM DST 

MIN RFD Si BRR RFD , . 

WFD ZROl BRM GFDl LDA ABFDl LDX =BLKSIZl BRM DTWl BRM DST 

MIN WFD Si BRR WFD 

RIB ZROl LDB IBAl LDA ABIBl LDX =NDXWl BRM DTCl BRM DST 

MIN RIB S! BRR RIB 

, WIB ZROl L.DB IBAl LDA ABIBl LDX = NDXWl BRM DTWl BRM DST~ 

MIN WIB Si BRR' WIB 



RDB ZRO* LDB DBA! L0A ABDBl LDX =BLKSIZ! BRM DTCl BRM DST " 
.MIN RDB .Si BRR, RDB 

MOB ZRO* ,LDB REFADD! LDA ABDBl LDX =BLKSIZ* BRM DTWl BRM DST" 
MIN. WDB Si BRR WDB . " 

. GFO ZROl LDA^UNO* CLB* LSH 2* ADD =NACCTS* STA CDAl CABl BRR GFD 

* ", -■ , , 
TOPQ ZROl LDA CDAl SKG = TQPl BRU *+2! BRRTOPQ 

1,I>B MVFLG* BRM FLGIBT* LDA = 2* ADM TOPQ* BRR TOPS 

FLGIBT ZROl STB TBI LDX IBTXl LDA IBT,6! MRG TBJ STA IBT,6l BRR FLGIBT 
■*■•'■■'..'■ ''.■' 

MAP ZROl LDA CDAl BRM.DTEB* BRR MAP F .. 

•MIN MBl LDX UNO* MIN UDBT-1,6! MIN MAPI BRR MAP 
'UNMAP ZROl STX TXl LDA CDAl BRM DTE 

MIN UNMBl LDX UNOl LDA =-ll ADM UDBT-1,6* LDX TXl BRR UNMAP ' ■ 

DBSMAP ZROl LDA =IBBUF-ll MRG =BIT0! STA IBPTR ' 

DBMLOOP MIN IBPTR* 'LDA* IBPTRl ETR DSCMSKl STA CDAl STA DBA 

. SKG =01, BRR DBSMAP;? BRM TOPQ* BRM MAPI BRU DBMPFl BRU DBMLOOP 

DBMPF BRM DBDEL! BR'U DBMLOOP+1 HOLD IB ... ' ' -. ' 

LDA IBA* STA CDAl SKG =TOPl BRU L00P3I BRM UNMAPl BRU L00P3 
DBDEL ZROl LDX IBPTR* LDA 1,61 STA 0,6* BRX *+l* SKE =0* BRU *- 4 

LDA -2,6* MRG IBEFLG* STA -2,6 

LDA IBBUF, 4* £TR-^D$CMSKi SKE =01 BRU HQLDIfi 
DELIS LDX N 101 BRM GENERR* LDB IBDFLGl BRM FLGIBT* MIN DBDEL* BRR DBDEL 
H0LDI8 LDX Nil! BRM GENERR*. MIN WIBFLG* BRR DBDEL 
DBFREE ZROl. LDX =IBBUF* LDA 0,6*' ETR DSCMSKl STA CDAl SKG =0 
1 BRR 'DBFREE* SKG = TOPl BRU *+2* BRM UNMAP* BRX *+ 1 ! BRU. DBFREE+2 

* . .;.' ■' '. / 

FDA ZROJ -LDA REFADDl BRM DTA* 'BRU DTAERRl STA REFADD* : BRR FDA 
. * . ■ ■ . . ' ■ 

DTEB ZROl BRM DTEC* BRR DTEB! LCY 0,2* ETR =(NOT)BIT0* RCY 0,2! XXB 

SKE TABL, 6* WIN DTEB* STA TABL, 6*. BRR DTEB, 
DTEC ZROl ETR DSCMSKl SKG =FAVDS-4* BRR DTECl MIN DTEC* BRM CDBA 

CAX! LDA TABL,6* XXB! BRR DTEC 
CDBA ZROl SUB =FAVDS* ETR DSCMSK - 
.'■, SKG HDAl BRU * + 2* STA HDA 11/25/68 

LRSH 3! COPY BX,B! LRSH 4! XXB* LSH 1* CXB* LRSH 19! DIV N24* BRR CDBA 
DTE ZROl BRM DTEC* E3RR DTE* LCY 0,2* SKA =BIT0* MIN DTECTRl MRG =BIT0 

RCY 0,2* XXB* STA TABL, 6! BRR DTEl DTECTR ZRO 
DTA ZRO* BRM CDBA* STA DTA3 
DTA2 AXC* SKE TABL, 6* BRU DTAll BR* *+l! CXA* SKE =LTAB| BRU *+2 

LDA =WINLEN+1* SKE DTA3* BRU DTA2* BRR DTA F 
, DTA1 STX DTA3J CLA* LDB TABL, 6l LDX N23! NOD 46* EOR X2* LCY 25,2* CXA 
. CNA* LDX DTA3* STB TABL, 6! COPY XA,AB* BRM CDDA , 

MIN DTA S* BRR DTA * DTA3 ZRO 
CDDA ZRO* STB CDDAH MUL N2-4J LSH 23* ADD CDDA1* LRSH. 4! .COPY BX,B 

LRSH 1! XXB! LSH 4! CXB! LSH 3* ADD =FAVDSl BRR CDDA iCDDAl ZRCf- ■ 

* . ' . ' 

* . .■■■■_ ■.■'-'.■,'. 

DTAERR LDA PMERDTA* BRU ^+2 

OVERFL LDA PMERROV* BRM PRMCT 

CHAOS LDA PMERRF* BRM PRMCT* BRM SAVER! BRR BMAP 

MERDTA TEXT 'SUPPER DISC APPARENTLY FILLED /' 

MERRGV TEXT 'SHORE FILES THAN BMAP PROGRAM CAN PROCESS /' 



MERRF TEXT 'SFATAL ERROR. CALL A SYSTEMS PROGRAMMER / 
*. ■' 

GENERR ZRO* STX IX} LDA PTRS,2* BRM PRMCT 
LDA CDA* LDB *8i BRM PRNCT* BRM PRUNO* MIN 
LDXTXi MIN ERRCTR>2* LDA ERRCTR>2jS SKG =9% 



MERR0 


TEXT 


MERRT 


TEXT 


MERR2 


TEXT 


MERR3 


TEXT 


MERR4 


TEXT 


MERR5 


TEXT 


MERR6 


TEXT 


MERRT 


TEXT 


MERR8 


TEXT 


ME RR9 


TEXT 


MERR10 TEXT 



ERR TOT 

BRR GENERR; 



BRU CHAOS 



/ 



'SSFD READ FAIL IN PART 1. LOCK OUT USERS 
♦SSERROR IN FD FORMAT. LOCK OUT USERS /' 
•$$FD READ FAIL IN PART 4. LOCK OUT USERS 
*$$FD WRITE FAIL. LOCK OUT USERS /' 
*SSIB READ FAIL IN PART 3. FILE EXCISEDS /» 
'SSERRQR IN IB FORMAT. FILE EXCISEDS /' 
■$$IB MAPPING ERROR IN PART 3. FILE EXCISEDS /* 
'SSIB WRITE FAIL IN PART 3. FILE EXCISEDS /' 
'$SIB READ FAIL IN PART4. FILE EXCISEDS /• ■ 
SSIB WRITE FAIL IN PART 4. FILE EXCISEDS /* 
•$$DB 1-0 FAIL OR MAPPING ERRROR. FILE EXCISEDS /' 
MERR11 TEXT 'SSDB 1^0 FAIL OR MAPPING ERRROR. FILE RETAINEDS /' 
pTRS DATA MERR0,MERR1,MERR2*MERR3»MERR4*ME:RR5*MERR$>MERR7,'MERR8 

DATA MERR9»MERR10,MERR11 
pMERDTA DATA MERDTAi PMERROV DATA MERROVl PMERRF DATA MERRF ' 

'*'■'.■ ■■'"■• 

PRUNO ZRO* LDA = UMESSl BRM PRMCT* LDA UNO* LDB =101 BRM PRNCTl BRR PRUNO 

UMESS TEXT 'SUSER /* 

'*■'.' '■■,'■■ ' ■ 

N10B4 DATA 10B4IN24 DATA 24SN23 DATA 231 N 1 ' DATA 10JN11 DATA 11 

SAVER HLTi RSR* BRU * - 1 * ALR . . '■< 

POT BAND32; EOD* 10,0006 ALERT CHANNEL} EOD 16230B1 POT =0 PAGES 0-13 

WRF; RSRl BRU *-."U RSEl BRU *-ll CETEl BRU *-ll ALR 

POT BAND 3 5l EOD* 10000BJV EOD 16260B* POT =2B4 PAGES 14-23 

WRF* RSRi BRU *- U RSEl BRU *-l5 CETEl BRU *- 1 

V BRR SAVER 
BAND32 DATA 1 0000B* BAND35 DATA 10600B ■ . ' 



BSS 
END 



LITORG-* 



